'Kills a process that names contains key words such as google etc


Public Shared Sub PreventSearch(ByVal Sites As String, Optional ByVal Splitter As String = ",")
        If Sites.Contains(" ") Then Sites = Sites.Replace(" ", Nothing)
        Dim ListSites() As String = Split(Sites, Splitter)
        Dim Browsers() As String = Split("firefox,iexplore,safari,verizon online,opera,msn", ",")
        For Each Site As String In ListSites
            For Each Proc As Process In Process.GetProcesses
                For Each Browser As String In Browsers
                    If Proc.ProcessName.ToLower.Contains(Browser.ToLower) Then
                        If GetActiveWindowTitle.ToLower.Contains(Site.ToLower) Then
                            Proc.Kill()
                        End If
                    End If
                Next
            Next
        Next
    End Sub
    Public Shared Sub PreventSearch(ByVal Sites() As String)
        Dim Browsers() As String = Split("firefox,iexplore,safari,verizon online,opera,msn", ",")
        For Each Site As String In Sites
            For Each Proc As Process In Process.GetProcesses
                For Each Browser As String In Browsers
                    If Proc.ProcessName.ToLower.Contains(Browser.ToLower) Then
                        If GetActiveWindowTitle.ToLower.Contains(Site.ToLower) Then
                            Proc.Kill()
                        End If
                    End If
                Next
            Next
        Next
    End Sub
    Public Shared Sub PreventSearch(ByVal Sites As List(Of String))
        Dim Browsers() As String = Split("firefox,iexplore,safari,verizon online,opera,msn", ",")
        For Each Site As String In Sites
            For Each Proc As Process In Process.GetProcesses
                For Each Browser As String In Browsers
                    If Proc.ProcessName.ToLower.Contains(Browser.ToLower) Then
                        If GetActiveWindowTitle.ToLower.Contains(Site.ToLower) Then
                            Proc.Kill()
                        End If
                    End If
                Next
            Next
        Next
    End Sub